unit fmWait;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TFormWait = class(TForm)
    Panel: TPanel;
    Bevel1: TBevel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormWait: TFormWait;

procedure StartWait;
procedure StopWait;


implementation

{$R *.DFM}

procedure StartWait;
begin
  if FormWait = nil then
    FormWait:= TFormWait.Create(nil);
  FormWait.Show;
  FormWait.Update;
end;

procedure StopWait;
begin
  FormWait.Visible:=false;
end;

end.
